inherited frmAtendimento: TfrmAtendimento
  Left = 423
  Top = 157
  Caption = 'Atendimentos'
  ClientHeight = 569
  ClientWidth = 522
  Font.Height = -12
  Font.Name = 'Arial'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 15
  inherited Panel1: TPanel
    Top = 532
    Width = 522
  end
  inherited Panel2: TPanel
    Width = 522
    Height = 532
    inherited Panel3: TPanel
      Width = 520
      Caption = 'Atendimentos'
      TabOrder = 1
      inherited GroupBox1: TGroupBox
        Left = 441
      end
    end
    inherited Panel4: TPanel
      Width = 520
      Height = 490
      TabOrder = 0
      inherited SbHints: TStatusBar
        Top = 467
        Width = 512
      end
      object gbRegistros: TGroupBox
        Left = 4
        Top = 186
        Width = 512
        Height = 281
        Align = alBottom
        Caption = 'Registros'
        TabOrder = 1
        object Label17: TLabel
          Left = 5
          Top = 15
          Width = 52
          Height = 14
          AutoSize = False
          Caption = 'Usu'#225'rio:'
          FocusControl = edtUsuario
        end
        object Label6: TLabel
          Left = 230
          Top = 17
          Width = 99
          Height = 14
          AutoSize = False
          Caption = 'Data do Registro:'
        end
        object Label7: TLabel
          Left = 5
          Top = 57
          Width = 92
          Height = 14
          AutoSize = False
          Caption = 'Descri'#231#227'o:'
          FocusControl = edtUsuario
        end
        object edtUsuario: TDBEdit
          Left = 5
          Top = 32
          Width = 36
          Height = 21
          TabStop = False
          AutoSize = False
          CharCase = ecUpperCase
          Color = clBtnFace
          Ctl3D = False
          DataField = 'ARE_USUARIO'
          DataSource = DtsRegistro
          Enabled = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
        end
        object st_UsuarioCorrente: TStaticText
          Left = 40
          Top = 32
          Width = 184
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          Enabled = False
          TabOrder = 1
        end
        object edtDataRegistro: TDBEdit
          Left = 230
          Top = 32
          Width = 185
          Height = 21
          TabStop = False
          AutoSize = False
          CharCase = ecUpperCase
          Color = clBtnFace
          Ctl3D = False
          DataField = 'ARE_DATAHORA'
          DataSource = DtsRegistro
          Enabled = False
          ParentCtl3D = False
          TabOrder = 2
        end
        object dbmRegistro: TDBMemo
          Left = 2
          Top = 73
          Width = 508
          Height = 65
          Hint = 'Descri'#231#227'o do registro'
          DataField = 'ARE_DESCRICAO'
          DataSource = DtsRegistro
          Enabled = False
          MaxLength = 255
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
        end
        object Panel5: TPanel
          Left = 2
          Top = 243
          Width = 508
          Height = 36
          Align = alBottom
          BevelInner = bvSpace
          BevelOuter = bvLowered
          TabOrder = 5
          object btnInsere: TBitBtn
            Left = 5
            Top = 5
            Width = 75
            Height = 25
            Caption = 'Inserir'
            Enabled = False
            ModalResult = 1
            TabOrder = 0
            OnClick = btnInsereClick
          end
          object btnConfirma: TBitBtn
            Left = 85
            Top = 5
            Width = 75
            Height = 25
            Caption = 'Confirmar'
            Enabled = False
            TabOrder = 1
            OnClick = btnConfirmaClick
          end
          object btnAltera: TBitBtn
            Left = 165
            Top = 5
            Width = 75
            Height = 25
            Caption = 'Alterar'
            Enabled = False
            TabOrder = 2
            OnClick = btnAlteraClick
          end
          object btnCancela: TBitBtn
            Left = 246
            Top = 5
            Width = 75
            Height = 25
            Caption = 'Cancelar'
            Enabled = False
            TabOrder = 3
            OnClick = btnCancelaClick
          end
          object btnExclui: TBitBtn
            Left = 326
            Top = 5
            Width = 75
            Height = 25
            Caption = 'Apagar'
            Enabled = False
            TabOrder = 4
            OnClick = btnExcluiClick
          end
          object btnBaixa: TBitBtn
            Left = 406
            Top = 5
            Width = 97
            Height = 25
            Caption = 'Baixar Registro'
            Enabled = False
            TabOrder = 5
            OnClick = btnBaixaClick
          end
        end
        object dbgrRegistros: TDBGrid
          Left = 2
          Top = 138
          Width = 508
          Height = 105
          TabStop = False
          Align = alBottom
          DataSource = DtsRegistro
          Enabled = False
          Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 4
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = 'Arial'
          TitleFont.Style = []
          OnCellClick = dbgrRegistrosCellClick
          OnDrawColumnCell = dbgrRegistrosDrawColumnCell
        end
      end
      object Panel6: TPanel
        Left = 4
        Top = 4
        Width = 512
        Height = 181
        Align = alTop
        BevelInner = bvLowered
        TabOrder = 0
        object Label1: TLabel
          Left = 6
          Top = 8
          Width = 67
          Height = 14
          AutoSize = False
          Caption = 'Protocolo:'
          Layout = tlCenter
        end
        object Label3: TLabel
          Left = 6
          Top = 56
          Width = 75
          Height = 14
          AutoSize = False
          Caption = 'Pessoa:'
        end
        object Label2: TLabel
          Left = 104
          Top = 8
          Width = 105
          Height = 14
          AutoSize = False
          Caption = 'Data de Abertura:'
          Layout = tlCenter
        end
        object Label4: TLabel
          Left = 6
          Top = 96
          Width = 83
          Height = 14
          AutoSize = False
          Caption = 'Contato:'
        end
        object Label5: TLabel
          Left = 288
          Top = 96
          Width = 57
          Height = 14
          AutoSize = False
          Caption = 'Setor:'
        end
        object Label8: TLabel
          Left = 312
          Top = 8
          Width = 161
          Height = 14
          AutoSize = False
          Caption = 'Previs'#227'o de Conclus'#227'o:'
          Layout = tlCenter
        end
        object st_Protocolo: TStaticText
          Left = 10
          Top = 24
          Width = 44
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          Enabled = False
          TabOrder = 0
        end
        object edtPessoa: TDBEdit
          Left = 6
          Top = 72
          Width = 65
          Height = 21
          Hint = 'C'#243'digo da pessoa'
          AutoSize = False
          CharCase = ecUpperCase
          DataField = 'ATE_PESSOA'
          DataSource = DtSrc
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          OnExit = edtPessoaExit
        end
        object btnPessoa: TBitBtn
          Left = 70
          Top = 72
          Width = 25
          Height = 21
          Hint = 'Buscar pessoa'
          Caption = '...'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
          TabStop = False
          OnClick = btnPessoaClick
        end
        object stPessoa: TStaticText
          Left = 93
          Top = 72
          Width = 412
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 6
        end
        object edtAbertura: TDBEdit
          Left = 105
          Top = 24
          Width = 168
          Height = 21
          TabStop = False
          AutoSize = False
          CharCase = ecUpperCase
          Color = clBtnFace
          Ctl3D = False
          DataField = 'ATE_ABERTURA'
          DataSource = DtSrc
          Enabled = False
          ParentCtl3D = False
          TabOrder = 1
        end
        object edtContato: TDBEdit
          Left = 6
          Top = 112
          Width = 275
          Height = 21
          Hint = 'Nome do contato do cliente'
          AutoSize = False
          CharCase = ecUpperCase
          DataField = 'ATE_CONTATO'
          DataSource = DtSrc
          ParentShowHint = False
          ShowHint = True
          TabOrder = 7
        end
        object edtSetor: TDBEdit
          Left = 288
          Top = 112
          Width = 40
          Height = 21
          Hint = 'C'#243'digo do setor'
          AutoSize = False
          CharCase = ecUpperCase
          DataField = 'ATE_SETOR'
          DataSource = DtSrc
          ParentShowHint = False
          ShowHint = True
          TabOrder = 8
          OnExit = edtSetorExit
        end
        object btnSetor: TBitBtn
          Left = 330
          Top = 112
          Width = 25
          Height = 21
          Hint = 'Buscar setor'
          Caption = '...'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 9
          TabStop = False
          OnClick = btnSetorClick
        end
        object dbrgSituacao: TDBRadioGroup
          Left = 2
          Top = 139
          Width = 508
          Height = 40
          Align = alBottom
          Caption = 'Situa'#231#227'o'
          Columns = 4
          DataField = 'ATE_SITUACAO'
          DataSource = DtSrc
          Items.Strings = (
            'Pendente'
            'Em espera'
            'Realocado'
            'Conclu'#237'do')
          TabOrder = 11
          TabStop = True
          Values.Strings = (
            'P'
            'E'
            'R'
            'C')
          OnEnter = dbrgSituacaoEnter
        end
        object stSetor: TStaticText
          Left = 354
          Top = 112
          Width = 150
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 10
        end
        object edtDataPrev: TMaskEdit
          Left = 312
          Top = 24
          Width = 73
          Height = 23
          Hint = 'Data de previs'#227'o de conclus'#227'o'
          MaxLength = 10
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          Text = '00/00/0000'
          OnExit = edtDataPrevExit
        end
        object edtHoraPrev: TMaskEdit
          Left = 384
          Top = 24
          Width = 57
          Height = 23
          Hint = 'Hora de previs'#227'o de conclus'#227'o'
          MaxLength = 8
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          Text = '00:00:00'
        end
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_ATENDIMENTO
  end
  object SQLC_ATENDIMENTO: TSQLClientDataSet
    CommandText = 
      'SELECT * FROM ATENDIMENTOS'#13#10'WHERE ATE_COD_PROTOCOLO = :ATE_COD_P' +
      'ROTOCOLO'#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'ATE_COD_PROTOCOLO'
        ParamType = ptInput
      end>
    AfterOpen = SQLC_ATENDIMENTOAfterOpen
    BeforeClose = SQLC_ATENDIMENTOBeforeClose
    DBConnection = DtmGeral.ConexaoBanco
    Left = 65
    Top = 9
    object SQLC_ATENDIMENTOATE_COD_PROTOCOLO: TIntegerField
      FieldName = 'ATE_COD_PROTOCOLO'
      Required = True
    end
    object SQLC_ATENDIMENTOATE_ABERTURA: TSQLTimeStampField
      FieldName = 'ATE_ABERTURA'
      Required = True
    end
    object SQLC_ATENDIMENTOATE_PESSOA: TIntegerField
      FieldName = 'ATE_PESSOA'
      Required = True
    end
    object SQLC_ATENDIMENTOATE_CONTATO: TStringField
      FieldName = 'ATE_CONTATO'
      Size = 30
    end
    object SQLC_ATENDIMENTOATE_SITUACAO: TStringField
      FieldName = 'ATE_SITUACAO'
      Required = True
      Size = 1
    end
    object SQLC_ATENDIMENTOATE_CONCLUSAO: TSQLTimeStampField
      FieldName = 'ATE_CONCLUSAO'
    end
    object SQLC_ATENDIMENTOATE_SETOR: TStringField
      FieldName = 'ATE_SETOR'
      Size = 3
    end
    object SQLC_ATENDIMENTOATE_USUARIO: TStringField
      FieldName = 'ATE_USUARIO'
      Required = True
      Size = 3
    end
    object SQLC_ATENDIMENTOATE_PREVISAO: TSQLTimeStampField
      FieldName = 'ATE_PREVISAO'
      Required = True
    end
    object SQLC_ATENDIMENTOATE_RESPONSAVEL: TStringField
      FieldName = 'ATE_RESPONSAVEL'
      Size = 3
    end
  end
  object DtsRegistro: TDataSource
    DataSet = SQLC_REGISTROS
    Left = 449
    Top = 209
  end
  object SQLC_REGISTROS: TSQLClientDataSet
    CommandText = 
      'SELECT '#13#10'   are.are_codigo,'#13#10'   are.are_usuario,'#13#10'   are.ate_cod' +
      '_protocolo,'#13#10'   are.are_descricao,'#13#10'   are.are_datahora'#13#10'   FROM' +
      ' ATENDIMENTOS_REGISTROS ARE, ATENDIMENTOS ATE'#13#10'WHERE ARE.ATE_COD' +
      '_PROTOCOLO = ATE.ATE_COD_PROTOCOLO'#13#10'AND ARE.ATE_COD_PROTOCOLO=:A' +
      'TE_COD_PROTOCOLO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'ATE_COD_PROTOCOLO'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 481
    Top = 209
    object SQLC_REGISTROSARE_CODIGO: TIntegerField
      FieldName = 'ARE_CODIGO'
      Required = True
    end
    object SQLC_REGISTROSARE_USUARIO: TStringField
      FieldName = 'ARE_USUARIO'
      Required = True
      Size = 3
    end
    object SQLC_REGISTROSATE_COD_PROTOCOLO: TIntegerField
      FieldName = 'ATE_COD_PROTOCOLO'
      Required = True
    end
    object SQLC_REGISTROSARE_DATAHORA: TSQLTimeStampField
      FieldName = 'ARE_DATAHORA'
      Required = True
    end
    object SQLC_REGISTROSARE_DESCRICAO: TStringField
      FieldName = 'ARE_DESCRICAO'
      Size = 255
    end
  end
end
